
  10 :RETURN ;CLEAR ;NT=0;M=0;N=32000;R=0
  15 FOR Z=0TO 15;@(Z)=0;NEXT Z
  20 BC=RND (32)×8;FC=BC+4+RND (32)×8
  30 FOR Z=0TO 15
  40 @(Z)=RND (16);@(Z+16)=@(Z)
  45 BOX RND (160)-80,RND (80)-40,RND (20),RND (20),3
  50 FOR A=0TO 15
  60 IF A=ZGOTO 80
  70 IF @(A)=@(Z)GOTO 40
  80 NEXT A
  85 LINE RND (160)-80,RND (80)-40,3
  90 NEXT Z
  95 CLEAR 
 100 BOX 0,0,83,83,3
 110 BOX 0,0,79,79,3
 120 Z=0
 130 FOR Y=30TO -30STEP -20
 140 FOR X=-30TO 30STEP 20
 150 IF @(Z)=16GOTO 800
 160 CX=X;CY=Y
 165 IF @(Z)>9CX=X-3
 170 PRINT #1,@(Z),
 180 BOX X,Y,19,19,3
 185 BOX X,Y,13,13,3
 190 Z=Z+1
 200 NEXT X;NEXT Y
 220 M=M+1
 225 CX=-78;CY=0;PRINT #1,M
 230 X=J;Y=K;GOSUB 700
 240 GOSUB 700
 245 IF JX(1)X=X+JX(1)×20;GOTO 260
 250 Y=Y+JY(1)×20
 260 IF X>22X=22
 270 IF X<-38X=-38
 280 IF Y>38Y=38
 290 IF Y<-22Y=-22
 300 GOSUB 700
 330 J=X;K=Y;GOSUB 700
 340 Z=((X+38)÷20)-(Y-38)÷5
 350 FOR A=0TO 15
 360 IF @(A)=16GOTO 380
 370 NEXT A
 380 IF A=ZGOTO 245
 390 @(A)=@(Z)
 400 @(Z)=16
 410 BOX X+8,Y-8,19,19,2
 420 B=A÷4;C=RM
 430 Y=(B×(-20))+38
 440 X=(C×20)-38
 450 CX=X+8;CY=Y-8
 455 IF @(A)>9CX=X+5
 460 PRINT #1,@(A),
 465 NT=1;MU=RND (8)+65;NT=0
 470 BOX X+8,Y-8,19,19,3
 480 BOX X+8,Y-8,13,13,3
 490 FOR Z=0TO 14
 500 IF @(Z)+1#@(Z+1)GOTO 220
 510 NEXT Z
 515 NT=3;FOR Z=1TO 50;MU=65;NEXT Z;NT=0
 520 CLEAR ;PRINT "YOU GOT IT!
 530 PRINT "IT TOOK YOU ",#1,M," MOVES!
 540 IF M<N N=M;GOTO 600
 550 PRINT "IT ONLY TOOK ",#1,N," MOVES";PRINT "BEFORE!
 555 PRINT ;PRINT "USE THE KNOB TO CHOOSE    SAME GAME OR NEW GAME, ANDPULL TRIGGER!
 560 PRINT "1-SAME GAME   2-NEW GAME
 570 CX=-2;CY=-35;G=(KN(1)+128)÷130+1;PRINT #1,G;IF TR(1)GOTO 580
 575 GOTO 570
 580 IF G=1GOTO 620
 590 GOTO 10
 600 IF R=1PRINT "A NEW RECORD!
 610 R=1;GOTO 560
 620 FOR Z=0TO 15
 630 @(Z)=@(Z+16)
 640 NEXT Z;M=0;CLEAR ;CY=40;PRINT #1,N;GOTO 100
 700 BOX X,Y,3,3,3;RETURN 
 800 B=Z÷4;C=RM
 810 J=(C×20)-38
 820 K=(B×(-20))+38
 830 GOTO 190
>RUN 
